home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / wcols50.zip / PRODUCTS.WCX (.txt) < prev    next >
Wildcat! WCX  |  1995-04-10  |  46KB  |  1,141 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  46026 bytes  01/29/123  04:31:52pm
  3. '! Code Segment Size  :21366 bytes
  4. '! Data Segment Size  :6076 bytes
  5. '! String Segment Size:24660 bytes
  6. '! Compiled with WCC version 4.10
  7.  
  8.       Type Type28
  9.         s0 As String*20
  10.         s20 As String*10
  11.         s30 As String*50
  12.         s80 As String*50
  13.         s130 As String*50
  14.         s180 As String*8
  15.         s188 As String*13
  16.         s201 As String*6
  17.         s207 As String*4
  18.         s211 As String*4
  19.         s215 As String*4
  20.       End Type
  21.  
  22.       Type Type27
  23.         s0 As String*25
  24.         s25 As String*25
  25.         s50 As String*25
  26.         s75 As String*25
  27.         s100 As String*25
  28.         s125 As String*25
  29.         s150 As String*25
  30.         s175 As String*25
  31.         s200 As String*25
  32.         s225 As String*25
  33.         s250 As String*25
  34.         s275 As String*25
  35.         s300 As String*25
  36.         s325 As String*25
  37.         s350 As String*25
  38.         s375 As String*25
  39.         s400 As String*25
  40.         s425 As String*25
  41.         s450 As String*25
  42.         s475 As String*25
  43.         s500 As String*25
  44.         s525 As String*25
  45.         s550 As String*25
  46.         s575 As String*25
  47.         s600 As String*25
  48.         s625 As String*25
  49.         s650 As String*25
  50.         s675 As String*25
  51.         s700 As String*25
  52.         s725 As String*25
  53.         s750 As String*25
  54.         s775 As String*25
  55.         s800 As String*25
  56.         s825 As String*25
  57.         s850 As String*25
  58.         s875 As String*25
  59.         s900 As String*25
  60.         s925 As String*25
  61.         s950 As String*25
  62.         s975 As String*25
  63.       End Type
  64.  
  65.       Type Type26
  66.         Filler0(1 To 8) As Byte
  67.         s8 As String*25
  68.       End Type
  69.  
  70.       Dim s4463 As String
  71.       Dim t28_4467 As Type28
  72.       Dim t26_4686 As Type26
  73.       Dim i4904 As Integer
  74.       Dim i4906 As Integer
  75.       Dim i4908 As Integer
  76.       Dim s4910 As String
  77.       Dim s4914 As String
  78.       Dim i4918 As Integer
  79.       Dim s4932 As String
  80.       Dim s4936 As String
  81.       Dim s4940 As String
  82.       Dim w4944 As Word
  83.       Dim s4946 As String
  84.       Dim s4950 As String
  85.       Dim s4954 As String
  86.       Dim i4958 As Integer
  87.       Dim s4960 As String
  88.       Dim s4964 As String
  89.       Dim s4968 As String
  90.       Dim i4972 As Integer
  91.       Dim s4974 As String
  92.       Dim s4978 As String
  93.       Dim s4982 As String
  94.       Dim s4986 As String
  95.       Dim w4990 As Word
  96.       Dim l4992 As Long
  97.       Dim s4996 As String
  98.       Dim l5000 As Long
  99.       Dim s5004 As String
  100.       Dim s5008 As String
  101.       Dim s5012 As String
  102.       Dim s5016 As String
  103.       Dim s5020 As String
  104.       Dim s5024 As String
  105.       Dim s5028 As String
  106.       Dim s5032 As String
  107.       Dim s5036 As String
  108.       Dim s5040 As String
  109.       Dim t27_5046 As Type27
  110.       Dim s6046 As String
  111.       Dim s6054 As String
  112.       Dim i6058 As Integer
  113.       Dim i6060 As Integer
  114.       Dim s6064 As String
  115.       Dim s6068 As String
  116.       Dim s6072 As String
  117.  
  118.       Dim s65520_ As String
  119.       Dim s65524_ As String
  120.       Dim s65528_ As String
  121.       Dim s65532_ As String
  122.  
  123.       s4463 = "5.0"
  124.       StatusOpen 1
  125.       StatusWrite "    Online Store   v" + s4463 + "    COPYRIGHT (C) 1995  Online Real Estate Consulting", 1213417543, 1213417543, 1213417543
  126.       Open "OLS.CFG" For Input As 1
  127.       Input #1, s4986
  128.       Input #1, w4990
  129.       Input #1, l4992
  130.       Input #1, s5004
  131.       Input #1, s5008
  132.       Input #1, s5012
  133.       Input #1, s5016
  134.       Input #1, s5020
  135.       Input #1, s5024
  136.       Input #1, s5028
  137.       Input #1, s5032
  138.       Input #1, s5036
  139.       Input #1, s5040
  140.       Close 1
  141.       s4996 = Right(MakeWild.RegString, 2)
  142.       l5000 = Val(s4996) * Val(s4996) * Val(s4996) + 1000000
  143.       If l5000 <> l4992 Then
  144.         s4946 = "UNREGISTERED"
  145.       Else
  146.   298   s4946 = "REGISTERED"
  147.       End If
  148.   307 s4914 = Chr(34) + Chr(44) + Chr(34)
  149.       If UCase(User.SecLevel) = "SYSOP" Then
  150.       Else
  151.   362   If UCase(User.SecLevel) = s5004 Then
  152.         Else
  153.   393     If UCase(User.SecLevel) = s5008 Then
  154.           Else
  155.   424       If UCase(User.SecLevel) = s5012 Then
  156.             Else
  157.   455         If UCase(User.SecLevel) = s5016 Then
  158.               Else
  159.   486           If UCase(User.SecLevel) = s5020 Then
  160.                 Else
  161.   517             If UCase(User.SecLevel) = s5024 Then
  162.                   Else
  163.   548               If UCase(User.SecLevel) = s5028 Then
  164.                     Else
  165.   579                 If UCase(User.SecLevel) = s5032 Then
  166.                       Else
  167.   610                   If UCase(User.SecLevel) = s5036 Then
  168.                         Else
  169.   641                     If UCase(User.SecLevel) = s5040 Then
  170.                           Else
  171.   672                       Locate 20, 1
  172.                             Color 14, 0
  173.                             Print "Your present security level does not permit this selection."
  174.                             Delay 3
  175.                             Chain s4986 + "VIEWOLS.WCX", ""
  176.                           End If
  177.                         End If
  178.                       End If
  179.                     End If
  180.                   End If
  181.                 End If
  182.               End If
  183.             End If
  184.           End If
  185.         End If
  186.       End If
  187.   721 If Exists(s4986 + "MERCHANT.DAT") Then
  188.         Open s4986 + "MERCHANT.DAT" For Random As 3 Len = 218 '! This value should probably be replaced with a "SizeOf" expression
  189.         i4958 = 1
  190.         Do
  191.   774     Get 3, i4958, t26_4686 '! 218 bytes
  192.           If UCase(User.Name) = UCase(t26_4686.s8) Then
  193.             s4932 = s4986 + Str(i4958) + "\"
  194.             Close 3
  195.             i4972 = 0
  196.             GoTo 916
  197.           End If
  198.   865     i4958 = i4958 + 1
  199.         Loop While Not EOF(3)
  200.         Close 3
  201.         Chain s4986 + "VIEWOLS.WCX", ""
  202.       End If
  203.       Do
  204.   916   If Exists(s4932 + "CAT.CFG") Then
  205.           Open s4932 + "CAT.CFG" For Random As 3 Len = 1000 '! This value should probably be replaced with a "SizeOf" expression
  206.           Do
  207.   963       Get 3, -1, t27_5046 '! 1000 bytes
  208.           Loop While Not EOF(3)
  209.           Close 3
  210.         End If
  211.   995   Color 14, 0
  212.         If i4972 = 3 Then
  213.           Chain s4986 + "VIEWOLS.WCX", ""
  214.         End If
  215.  1035   i4972 = i4972 + 1
  216.         Cls 
  217.         MorePrompt(0)
  218.         Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  219.         Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  220.         Print "@1E@░░░░░░░░░░░@1F@┌──────────────────────────────────────────────────────┐@1E@░░░░░░░░░░░░"
  221.         Print "@1E@░░░░░░░░░░░@1F@│     @1E@         Online Store - Stock Room         @1F@      │@07@░░@1E@░░░░░░░░░░"
  222.         Print "@1E@░░░░░░░░░░░@1F@│                                                      │@07@░░@1E@░░░░░░░░░░"
  223.         Print "@1E@░░░░░░░░░░░@1F@│                                                      │@07@░░@1E@░░░░░░░░░░"
  224.         Print "@1E@░░░░░░░░░░░@1F@│ [@1E@1@1F@]   @1F@Add/Browse/Edit/Delete Current Inventory       @1F@│@07@░░@1E@░░░░░░░░░░"
  225.         Print "@1E@░░░░░░░░░░░@1F@│ [@1E@2@1F@]   @1F@Upload Comma-Delimited Inventory File          @1F@│@07@░░@1E@░░░░░░░░░░"
  226.         Print "@1E@░░░░░░░░░░░@1F@│ [@1E@3@1F@]   @1F@Download Comma-Delimited Inventory File        @1F@│@07@░░@1E@░░░░░░░░░░"
  227.         Print "@1E@░░░░░░░░░░░@1F@│ [@1E@4@1F@]   @1F@Upload Attachment Files                        @1F@│@07@░░@1E@░░░░░░░░░░"
  228.         Print "@1E@░░░░░░░░░░░@1F@│ [@1E@5@1F@]   @1F@Edit Category Names                            @1F@│@07@░░@1E@░░░░░░░░░░"
  229.         Print "@1E@░░░░░░░░░░░@1F@│ [@1E@6@1F@]   @1F@Edit Shipping Charges                          @1F@│@07@░░@1E@░░░░░░░░░░"
  230.         Print "@1E@░░░░░░░░░░░@1F@│ [@1E@X@1F@]   Exit To The Store Lobby                        @1F@│@07@░░@1E@░░░░░░░░░░"
  231.         Print "@1E@░░░░░░░░░░░@1F@├──────────────────────────────────────────────────────┤@07@░░@1E@░░░░░░░░░░"
  232.         Print "@1E@░░░░░░░░░░░@1F@│ @1E@Your Command:  @0E@[ ]@1E@                                   @1F@│@07@░░@1E@░░░░░░░░░░"
  233.         Print "@1E@░░░░░░░░░░░@1F@└──────────────────────────────────────────────────────┘@07@░░@1E@░░░░░░░░░░"
  234.         Print "@1E@░░░░░░░░░░░░░░░@07@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@1E@░░░░░░░░░░"
  235.         Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  236.         Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  237.         Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  238.         Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  239.         Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  240.         Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  241.         Locate 15, 14
  242.         s4982 = InputMask("@1E@Please enter your system password:  @0E@", "XXXXXXXXXXXXXX", "", 1)
  243.         If (UCase(s4982) <> UCase(User.Password)) = 0 Then GoTo 1360
  244.         Locate 15, 14
  245.         Print "@1E@Invalid Password.  Please Enter A Valid Password.    "
  246.         Locate 15, 62
  247.         Delay 3
  248.       Loop
  249.       Do
  250.         Do
  251.           Do
  252.             Do
  253.               Do
  254.                 Do
  255.                   Do
  256.                     Do
  257.  1360                 Cls 
  258.                       MorePrompt(0)
  259.                       s4940 = "NO"
  260.                       Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  261.                       Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  262.                       Print "@1E@░░░░░░░░░░░@1F@┌──────────────────────────────────────────────────────┐@1E@░░░░░░░░░░░░"
  263.                       Print "@1E@░░░░░░░░░░░@1F@│     @1E@         Online Store - Stock Room         @1F@      │@07@░░@1E@░░░░░░░░░░"
  264.                       Print "@1E@░░░░░░░░░░░@1F@│                                                      │@07@░░@1E@░░░░░░░░░░"
  265.                       Print "@1E@░░░░░░░░░░░@1F@│                                                      │@07@░░@1E@░░░░░░░░░░"
  266.                       Print "@1E@░░░░░░░░░░░@1F@│ [@1E@1@1F@]   @1F@Add/Browse/Edit/Delete Current Inventory       @1F@│@07@░░@1E@░░░░░░░░░░"
  267.                       Print "@1E@░░░░░░░░░░░@1F@│ [@1E@2@1F@]   @1F@Upload Comma-Delimited Inventory File          @1F@│@07@░░@1E@░░░░░░░░░░"
  268.                       Print "@1E@░░░░░░░░░░░@1F@│ [@1E@3@1F@]   @1F@Download Comma-Delimited Inventory File        @1F@│@07@░░@1E@░░░░░░░░░░"
  269.                       Print "@1E@░░░░░░░░░░░@1F@│ [@1E@4@1F@]   @1F@Upload Attachment Files                        @1F@│@07@░░@1E@░░░░░░░░░░"
  270.                       Print "@1E@░░░░░░░░░░░@1F@│ [@1E@5@1F@]   @1F@Edit Category Names                            @1F@│@07@░░@1E@░░░░░░░░░░"
  271.                       Print "@1E@░░░░░░░░░░░@1F@│ [@1E@6@1F@]   @1F@Edit Shipping Charges                          @1F@│@07@░░@1E@░░░░░░░░░░"
  272.                       Print "@1E@░░░░░░░░░░░@1F@│ [@1E@X@1F@]   Exit To The Store Lobby                        @1F@│@07@░░@1E@░░░░░░░░░░"
  273.                       Print "@1E@░░░░░░░░░░░@1F@├──────────────────────────────────────────────────────┤@07@░░@1E@░░░░░░░░░░"
  274.                       Print "@1E@░░░░░░░░░░░@1F@│ @1E@Your Command:  @0E@[ ]@1E@                                   @1F@│@07@░░@1E@░░░░░░░░░░"
  275.                       Print "@1E@░░░░░░░░░░░@1F@└──────────────────────────────────────────────────────┘@07@░░@1E@░░░░░░░░░░"
  276.                       Print "@1E@░░░░░░░░░░░░░░░@07@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@1E@░░░░░░░░░░"
  277.                       Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  278.                       Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  279.                       Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  280.                       Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  281.                       Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  282.                       Locate 15, 30
  283.                       s4964 = ""
  284.                       Do
  285.                         Do
  286.  1591                     s4964 = InKey(1213417543)
  287.                         Loop Until s4964 <> ""
  288.                         s65532_ = UCase(s4964)
  289.                         If s65532_ = "X" Then
  290.                           Chain s4986 + "VIEWOLS.WCX", ""
  291.                         Else
  292.  1673                     If s65532_ = "1" Then
  293.                             GoTo 10455
  294.                           Else
  295.  1702                       If s65532_ = "2" Then
  296.                               GoTo 7201
  297.                             Else
  298.  1731                         If s65532_ = "3" Then
  299.                                 GoTo 17879
  300.                               Else
  301.  1760                           If s65532_ = "4" Then
  302.                                   GoTo 19680
  303.                                 Else
  304.  1789                             If s65532_ = "5" Then
  305.                                     GoTo 3283
  306.                                   Else
  307.  1818                               If s65532_ = "6" Then
  308.                                       GoTo 1882
  309.                                     Else
  310.  1847                                 If s65532_ = "?" Then
  311.                                         GoTo 6853
  312.                                         GoTo 1876
  313.                                       End If
  314.                                     End If
  315.                                   End If
  316.                                 End If
  317.                               End If
  318.                             End If
  319.                           End If
  320.                         End If
  321.  1876                 Loop
  322.  1882                 Cls 
  323.                       Print "   @08@│  @08@[@0E@ 1@08@] @0F@" + Pad(t27_5046.s0, 25) + "   @08@[@0E@21@08@] @0F@" + Pad(t27_5046.s500, 25) + "     @08@│"
  324.                       Print "@0F@ P @08@│  @08@[@0E@ 2@08@] @0F@" + Pad(t27_5046.s25, 25) + "   @08@[@0E@22@08@] @0F@" + Pad(t27_5046.s525, 25) + "     @08@│@0F@ P"
  325.                       Print "@0F@ R @08@│  @08@[@0E@ 3@08@] @0F@" + Pad(t27_5046.s50, 25) + "   @08@[@0E@23@08@] @0F@" + Pad(t27_5046.s550, 25) + "     @08@│@0F@ R"
  326.                       Print "@0F@ O @08@│  @08@[@0E@ 4@08@] @0F@" + Pad(t27_5046.s75, 25) + "   @08@[@0E@24@08@] @0F@" + Pad(t27_5046.s575, 25) + "     @08@│@0F@ O"
  327.                       Print "@0F@ D @08@│  @08@[@0E@ 5@08@] @0F@" + Pad(t27_5046.s100, 25) + "   @08@[@0E@25@08@] @0F@" + Pad(t27_5046.s600, 25) + "     @08@│@0F@ D"
  328.                       Print "@0F@ U @08@│  @08@[@0E@ 6@08@] @0F@" + Pad(t27_5046.s125, 25) + "   @08@[@0E@26@08@] @0F@" + Pad(t27_5046.s625, 25) + "     @08@│@0F@ U"
  329.                       Print "@0F@ C @08@│  @08@[@0E@ 7@08@] @0F@" + Pad(t27_5046.s150, 25) + "   @08@[@0E@27@08@] @0F@" + Pad(t27_5046.s650, 25) + "     @08@│@0F@ C"
  330.                       Print "@0F@ T @08@│  @08@[@0E@ 8@08@] @0F@" + Pad(t27_5046.s175, 25) + "   @08@[@0E@28@08@] @0F@" + Pad(t27_5046.s675, 25) + "     @08@│@0F@ T"
  331.                       Print "   @08@│  @08@[@0E@ 9@08@] @0F@" + Pad(t27_5046.s200, 25) + "   @08@[@0E@29@08@] @0F@" + Pad(t27_5046.s700, 25) + "     @08@│"
  332.                       Print "@0F@ C @08@│  @08@[@0E@10@08@] @0F@" + Pad(t27_5046.s225, 25) + "   @08@[@0E@30@08@] @0F@" + Pad(t27_5046.s725, 25) + "     @08@│@0F@ C"
  333.                       Print "@0F@ A @08@│  @08@[@0E@11@08@] @0F@" + Pad(t27_5046.s250, 25) + "   @08@[@0E@31@08@] @0F@" + Pad(t27_5046.s750, 25) + "     @08@│@0F@ A"
  334.                       Print "@0F@ T @08@│  @08@[@0E@12@08@] @0F@" + Pad(t27_5046.s275, 25) + "   @08@[@0E@32@08@] @0F@" + Pad(t27_5046.s775, 25) + "     @08@│@0F@ T"
  335.                       Print "@0F@ E @08@│  @08@[@0E@13@08@] @0F@" + Pad(t27_5046.s300, 25) + "   @08@[@0E@33@08@] @0F@" + Pad(t27_5046.s800, 25) + "     @08@│@0F@ E"
  336.                       Print "@0F@ G @08@│  @08@[@0E@14@08@] @0F@" + Pad(t27_5046.s325, 25) + "   @08@[@0E@34@08@] @0F@" + Pad(t27_5046.s825, 25) + "     @08@│@0F@ G"
  337.                       Print "@0F@ O @08@│  @08@[@0E@15@08@] @0F@" + Pad(t27_5046.s350, 25) + "   @08@[@0E@35@08@] @0F@" + Pad(t27_5046.s850, 25) + "     @08@│@0F@ O"
  338.                       Print "@0F@ R @08@│  @08@[@0E@16@08@] @0F@" + Pad(t27_5046.s375, 25) + "   @08@[@0E@36@08@] @0F@" + Pad(t27_5046.s875, 25) + "     @08@│@0F@ R"
  339.                       Print "@0F@ I @08@│  @08@[@0E@17@08@] @0F@" + Pad(t27_5046.s400, 25) + "   @08@[@0E@37@08@] @0F@" + Pad(t27_5046.s900, 25) + "     @08@│@0F@ I"
  340.                       Print "@0F@ E @08@│  @08@[@0E@18@08@] @0F@" + Pad(t27_5046.s425, 25) + "   @08@[@0E@38@08@] @0F@" + Pad(t27_5046.s925, 25) + "     @08@│@0F@ E"
  341.                       Print "@0F@ S @08@│  @08@[@0E@19@08@] @0F@" + Pad(t27_5046.s450, 25) + "   @08@[@0E@39@08@] @0F@" + Pad(t27_5046.s950, 25) + "     @08@│@0F@ S"
  342.                       Print "   @08@│  @08@[@0E@20@08@] @0F@" + Pad(t27_5046.s475, 25) + "   @08@[@0E@40@08@] @0F@" + Pad(t27_5046.s975, 25) + "     @08@│"
  343.                       s6046 = InputMask("Category [@0F@##@0E@] to edit, [@0F@Q@0E@]uit.  ", "XX", "", 1213417543)
  344.                       Open s4932 + s6046 + "SHIP.CFG" For Input As 2
  345.                       Input #2, i4904
  346.                       Input #2, i4906
  347.                       Input #2, i4908
  348.                       Close 2
  349.                       Cls 
  350.                       Print "Enter shipping charges as follows:  $8.00 entered as 800, $13.00 entered as 1300"
  351.                       Print ""
  352.                       i4904 = InputNumber("Ground shipping, per pound.        ", 0, 9999)
  353.                       i4906 = InputNumber("2nd Day Air shipping, per pound.   ", 0, 9999)
  354.                       i4908 = InputNumber("Overnight shipping, per pound.     ", 0, 9999)
  355.                       Open s4932 + s6046 + "SHIP.CFG" For Output As 2
  356.                       Print #2, i4904
  357.                       Print #2, i4906
  358.                       Print #2, i4908
  359.                       Close 2
  360.                     Loop
  361.                     Do
  362.  3283                 Cls 
  363.                       Print "   @08@│  @08@[@0E@ 1@08@] @0F@" + Pad(t27_5046.s0, 25) + "   @08@[@0E@21@08@] @0F@" + Pad(t27_5046.s500, 25) + "     @08@│"
  364.                       Print "@0F@ P @08@│  @08@[@0E@ 2@08@] @0F@" + Pad(t27_5046.s25, 25) + "   @08@[@0E@22@08@] @0F@" + Pad(t27_5046.s525, 25) + "     @08@│@0F@ P"
  365.                       Print "@0F@ R @08@│  @08@[@0E@ 3@08@] @0F@" + Pad(t27_5046.s50, 25) + "   @08@[@0E@23@08@] @0F@" + Pad(t27_5046.s550, 25) + "     @08@│@0F@ R"
  366.                       Print "@0F@ O @08@│  @08@[@0E@ 4@08@] @0F@" + Pad(t27_5046.s75, 25) + "   @08@[@0E@24@08@] @0F@" + Pad(t27_5046.s575, 25) + "     @08@│@0F@ O"
  367.                       Print "@0F@ D @08@│  @08@[@0E@ 5@08@] @0F@" + Pad(t27_5046.s100, 25) + "   @08@[@0E@25@08@] @0F@" + Pad(t27_5046.s600, 25) + "     @08@│@0F@ D"
  368.                       Print "@0F@ U @08@│  @08@[@0E@ 6@08@] @0F@" + Pad(t27_5046.s125, 25) + "   @08@[@0E@26@08@] @0F@" + Pad(t27_5046.s625, 25) + "     @08@│@0F@ U"
  369.                       Print "@0F@ C @08@│  @08@[@0E@ 7@08@] @0F@" + Pad(t27_5046.s150, 25) + "   @08@[@0E@27@08@] @0F@" + Pad(t27_5046.s650, 25) + "     @08@│@0F@ C"
  370.                       Print "@0F@ T @08@│  @08@[@0E@ 8@08@] @0F@" + Pad(t27_5046.s175, 25) + "   @08@[@0E@28@08@] @0F@" + Pad(t27_5046.s675, 25) + "     @08@│@0F@ T"
  371.                       Print "   @08@│  @08@[@0E@ 9@08@] @0F@" + Pad(t27_5046.s200, 25) + "   @08@[@0E@29@08@] @0F@" + Pad(t27_5046.s700, 25) + "     @08@│"
  372.                       Print "@0F@ C @08@│  @08@[@0E@10@08@] @0F@" + Pad(t27_5046.s225, 25) + "   @08@[@0E@30@08@] @0F@" + Pad(t27_5046.s725, 25) + "     @08@│@0F@ C"
  373.                       Print "@0F@ A @08@│  @08@[@0E@11@08@] @0F@" + Pad(t27_5046.s250, 25) + "   @08@[@0E@31@08@] @0F@" + Pad(t27_5046.s750, 25) + "     @08@│@0F@ A"
  374.                       Print "@0F@ T @08@│  @08@[@0E@12@08@] @0F@" + Pad(t27_5046.s275, 25) + "   @08@[@0E@32@08@] @0F@" + Pad(t27_5046.s775, 25) + "     @08@│@0F@ T"
  375.                       Print "@0F@ E @08@│  @08@[@0E@13@08@] @0F@" + Pad(t27_5046.s300, 25) + "   @08@[@0E@33@08@] @0F@" + Pad(t27_5046.s800, 25) + "     @08@│@0F@ E"
  376.                       Print "@0F@ G @08@│  @08@[@0E@14@08@] @0F@" + Pad(t27_5046.s325, 25) + "   @08@[@0E@34@08@] @0F@" + Pad(t27_5046.s825, 25) + "     @08@│@0F@ G"
  377.                       Print "@0F@ O @08@│  @08@[@0E@15@08@] @0F@" + Pad(t27_5046.s350, 25) + "   @08@[@0E@35@08@] @0F@" + Pad(t27_5046.s850, 25) + "     @08@│@0F@ O"
  378.                       Print "@0F@ R @08@│  @08@[@0E@16@08@] @0F@" + Pad(t27_5046.s375, 25) + "   @08@[@0E@36@08@] @0F@" + Pad(t27_5046.s875, 25) + "     @08@│@0F@ R"
  379.                       Print "@0F@ I @08@│  @08@[@0E@17@08@] @0F@" + Pad(t27_5046.s400, 25) + "   @08@[@0E@37@08@] @0F@" + Pad(t27_5046.s900, 25) + "     @08@│@0F@ I"
  380.                       Print "@0F@ E @08@│  @08@[@0E@18@08@] @0F@" + Pad(t27_5046.s425, 25) + "   @08@[@0E@38@08@] @0F@" + Pad(t27_5046.s925, 25) + "     @08@│@0F@ E"
  381.                       Print "@0F@ S @08@│  @08@[@0E@19@08@] @0F@" + Pad(t27_5046.s450, 25) + "   @08@[@0E@39@08@] @0F@" + Pad(t27_5046.s950, 25) + "     @08@│@0F@ S"
  382.                       Print "   @08@│  @08@[@0E@20@08@] @0F@" + Pad(t27_5046.s475, 25) + "   @08@[@0E@40@08@] @0F@" + Pad(t27_5046.s975, 25) + "     @08@│"
  383.                       s6046 = InputMask("Category [@0F@##@0E@] to edit, [@0F@Q@0E@]uit.  ", "XX", "", 1213417543)
  384.                       If UCase(s6046) = "Q" Then
  385.                         GoTo 1360
  386.                       End If
  387.  4504                 If Val(s6046) >= 1 And Val(s6046) <= 40 Then
  388.                         MorePrompt(0)
  389.                         If s6046 = "1" Then
  390.                           t27_5046.s0 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s0, 1213417543)
  391.                         End If
  392.  4586                   If s6046 = "2" Then
  393.                           t27_5046.s25 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s25, 1213417543)
  394.                         End If
  395.  4641                   If s6046 = "3" Then
  396.                           t27_5046.s50 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s50, 1213417543)
  397.                         End If
  398.  4696                   If s6046 = "4" Then
  399.                           t27_5046.s75 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s75, 1213417543)
  400.                         End If
  401.  4751                   If s6046 = "5" Then
  402.                           t27_5046.s100 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s100, 1213417543)
  403.                         End If
  404.  4806                   If s6046 = "6" Then
  405.                           t27_5046.s125 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s125, 1213417543)
  406.                         End If
  407.  4861                   If s6046 = "7" Then
  408.                           t27_5046.s150 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s150, 1213417543)
  409.                         End If
  410.  4916                   If s6046 = "8" Then
  411.                           t27_5046.s175 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s175, 1213417543)
  412.                         End If
  413.  4971                   If s6046 = "9" Then
  414.                           t27_5046.s200 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s200, 1213417543)
  415.                         End If
  416.  5026                   If s6046 = "10" Then
  417.                           t27_5046.s225 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s225, 1213417543)
  418.                         End If
  419.  5081                   If s6046 = "11" Then
  420.                           t27_5046.s250 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s250, 1213417543)
  421.                         End If
  422.  5136                   If s6046 = "12" Then
  423.                           t27_5046.s275 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s275, 1213417543)
  424.                         End If
  425.  5193                   If s6046 = "13" Then
  426.                           t27_5046.s300 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s300, 1213417543)
  427.                         End If
  428.  5250                   If s6046 = "14" Then
  429.                           t27_5046.s325 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s325, 1213417543)
  430.                         End If
  431.  5307                   If s6046 = "15" Then
  432.                           t27_5046.s350 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s350, 1213417543)
  433.                         End If
  434.  5364                   If s6046 = "16" Then
  435.                           t27_5046.s375 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s375, 1213417543)
  436.                         End If
  437.  5421                   If s6046 = "17" Then
  438.                           t27_5046.s400 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s400, 1213417543)
  439.                         End If
  440.  5478                   If s6046 = "18" Then
  441.                           t27_5046.s425 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s425, 1213417543)
  442.                         End If
  443.  5535                   If s6046 = "19" Then
  444.                           t27_5046.s450 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s450, 1213417543)
  445.                         End If
  446.  5592                   If s6046 = "20" Then
  447.                           t27_5046.s475 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s475, 1213417543)
  448.                         End If
  449.  5649                   If s6046 = "21" Then
  450.                           t27_5046.s500 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s500, 1213417543)
  451.                         End If
  452.  5706                   If s6046 = "22" Then
  453.                           t27_5046.s525 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s525, 1213417543)
  454.                         End If
  455.  5763                   If s6046 = "23" Then
  456.                           t27_5046.s550 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s550, 1213417543)
  457.                         End If
  458.  5820                   If s6046 = "24" Then
  459.                           t27_5046.s575 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s575, 1213417543)
  460.                         End If
  461.  5877                   If s6046 = "25" Then
  462.                           t27_5046.s600 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s600, 1213417543)
  463.                         End If
  464.  5934                   If s6046 = "26" Then
  465.                           t27_5046.s625 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s625, 1213417543)
  466.                         End If
  467.  5991                   If s6046 = "27" Then
  468.                           t27_5046.s650 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s650, 1213417543)
  469.                         End If
  470.  6048                   If s6046 = "28" Then
  471.                           t27_5046.s675 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s675, 1213417543)
  472.                         End If
  473.  6105                   If s6046 = "29" Then
  474.                           t27_5046.s700 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s700, 1213417543)
  475.                         End If
  476.  6162                   If s6046 = "30" Then
  477.                           t27_5046.s725 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s725, 1213417543)
  478.                         End If
  479.  6219                   If s6046 = "31" Then
  480.                           t27_5046.s750 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s750, 1213417543)
  481.                         End If
  482.  6276                   If s6046 = "32" Then
  483.                           t27_5046.s775 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s775, 1213417543)
  484.                         End If
  485.  6333                   If s6046 = "33" Then
  486.                           t27_5046.s800 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s800, 1213417543)
  487.                         End If
  488.  6390                   If s6046 = "34" Then
  489.                           t27_5046.s825 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s825, 1213417543)
  490.                         End If
  491.  6447                   If s6046 = "35" Then
  492.                           t27_5046.s850 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s850, 1213417543)
  493.                         End If
  494.  6504                   If s6046 = "36" Then
  495.                           t27_5046.s875 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s875, 1213417543)
  496.                         End If
  497.  6561                   If s6046 = "37" Then
  498.                           t27_5046.s900 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s900, 1213417543)
  499.                         End If
  500.  6618                   If s6046 = "38" Then
  501.                           t27_5046.s925 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s925, 1213417543)
  502.                         End If
  503.  6675                   If s6046 = "39" Then
  504.                           t27_5046.s950 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s950, 1213417543)
  505.                         End If
  506.  6732                   If s6046 = "40" Then
  507.                           t27_5046.s975 = InputMask("Category ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t27_5046.s975, 1213417543)
  508.                         End If
  509.  6789                 Else
  510.  6795                   GoTo 1360
  511.                       End If
  512.  6801                 Open s4932 + "CAT.CFG" For Random As 3 Len = 1000 '! This value should probably be replaced with a "SizeOf" expression
  513.                       Put 3, -1, t27_5046 '! 1000 bytes
  514.                       Close 3
  515.                     Loop
  516.  6853               Cls 
  517.                     MorePrompt(0)
  518.                     Print "@0E@Upload/Import Inventory File - @0F@Merchants can perform mass updates by uploading"
  519.                     Print "  comma-deliminated data files.  Online Store will automatically import"
  520.                     Print "  this data into the merchant's PRODUCTS.DAT file for immediate display to"
  521.                     Print "  callers.  The comma-deliminated file must be in the following format:"
  522.                     Print " @0E@                " + Chr(34) + "1" + s4914 + "2" + s4914 + "3" + s4914 + "4" + s4914 + "5" + s4914 + "6" + s4914 + "7" + s4914 + "8" + s4914 + "9" + s4914 + "10" + s4914 + "11" + Chr(34)
  523.                     Print ""
  524.                     Print "  @0F@1 = PRODUCT NAME"
  525.                     Print "  @0F@2 = PRODUCT PRICE @8E@*@0F@                                            "
  526.                     Print "  @0F@3 = DESCRIPTION 1 (UP TO 50 CHARACTERS)                                 "
  527.                     Print "  @0F@4 = DESCRIPTION 2 (UP TO 50 CHARACTERS)                                  "
  528.                     Print "  @0F@5 = DESCRIPTION 3 (UP TO 50 CHARACTERS)                                   "
  529.                     Print "  @0F@6 = STOCK NUMBER                                                           "
  530.                     Print "  @0F@7 = UPC NUMBER                                                              "
  531.                     Print "  @0F@8 = WEIGHT "
  532.                     Print "  @0F@9 = GROUND SHIPPING RATE @8E@*@0F@                                           "
  533.                     Print " @0F@10 = 2ND DAY SHIPPING RATE @8E@*@07@                                           "
  534.                     Print " @0F@11 = OVERNIGHT SHIPPING RATE @8E@*@0E@                                          "
  535.                     Print ""
  536.                     Print "  @8E@*@0E@ Do not include decimals or $.  Ex (@0F@$89.55 should be entered as 8955@0E@) "
  537.                     Print "            The new data can append, or overwrite, existing data."
  538.                     WaitEnter 
  539.                   Loop
  540.  7201             Locate 14, 14
  541.                   Print "@1E@Upload comma-delimited inventory file? Y/N:  @0E@[ ]";
  542.                   Locate 14, 60
  543.                   s4978 = ""
  544.                   Do
  545.                     Do
  546.  7238                 s4978 = InKey(1213417543)
  547.                     Loop Until s4978 <> ""
  548.                     s65528_ = UCase(s4978)
  549.                     If s65528_ = "Y" Then
  550.                       Locate 14, 14
  551.                       Print "@1E@[@1F@O@1E@]verwrite inventory, [@1F@A@1E@]ppend inventory:  @0E@[ ]@1E@   "
  552.                       MorePrompt(0)
  553.                       Locate 14, 59
  554.                       s4974 = ""
  555.                       Do
  556.                         Do
  557.  7332                     s4974 = InKey(1213417543)
  558.                         Loop Until s4974 <> ""
  559.                         s65524_ = UCase(s4974)
  560.                         If s65524_ = "O" Then
  561.                           s4968 = "O"
  562.                           GoTo 7454
  563.                         Else
  564.  7410                     If s65524_ = "A" Then
  565.                             s4968 = "A"
  566.                             GoTo 7454
  567.                             GoTo 7448
  568.                           End If
  569.                         End If
  570.  7448                 Loop
  571.  7454                 Color 14, 0
  572.                       Cls 
  573.                       Print "   @08@│  @08@[@0E@ 1@08@] @0F@" + Pad(t27_5046.s0, 25) + "   @08@[@0E@21@08@] @0F@" + Pad(t27_5046.s500, 25) + "     @08@│"
  574.                       Print "@0F@ P @08@│  @08@[@0E@ 2@08@] @0F@" + Pad(t27_5046.s25, 25) + "   @08@[@0E@22@08@] @0F@" + Pad(t27_5046.s525, 25) + "     @08@│@0F@ P"
  575.                       Print "@0F@ R @08@│  @08@[@0E@ 3@08@] @0F@" + Pad(t27_5046.s50, 25) + "   @08@[@0E@23@08@] @0F@" + Pad(t27_5046.s550, 25) + "     @08@│@0F@ R"
  576.                       Print "@0F@ O @08@│  @08@[@0E@ 4@08@] @0F@" + Pad(t27_5046.s75, 25) + "   @08@[@0E@24@08@] @0F@" + Pad(t27_5046.s575, 25) + "     @08@│@0F@ O"
  577.                       Print "@0F@ D @08@│  @08@[@0E@ 5@08@] @0F@" + Pad(t27_5046.s100, 25) + "   @08@[@0E@25@08@] @0F@" + Pad(t27_5046.s600, 25) + "     @08@│@0F@ D"
  578.                       Print "@0F@ U @08@│  @08@[@0E@ 6@08@] @0F@" + Pad(t27_5046.s125, 25) + "   @08@[@0E@26@08@] @0F@" + Pad(t27_5046.s625, 25) + "     @08@│@0F@ U"
  579.                       Print "@0F@ C @08@│  @08@[@0E@ 7@08@] @0F@" + Pad(t27_5046.s150, 25) + "   @08@[@0E@27@08@] @0F@" + Pad(t27_5046.s650, 25) + "     @08@│@0F@ C"
  580.                       Print "@0F@ T @08@│  @08@[@0E@ 8@08@] @0F@" + Pad(t27_5046.s175, 25) + "   @08@[@0E@28@08@] @0F@" + Pad(t27_5046.s675, 25) + "     @08@│@0F@ T"
  581.                       Print "   @08@│  @08@[@0E@ 9@08@] @0F@" + Pad(t27_5046.s200, 25) + "   @08@[@0E@29@08@] @0F@" + Pad(t27_5046.s700, 25) + "     @08@│"
  582.                       Print "@0F@ C @08@│  @08@[@0E@10@08@] @0F@" + Pad(t27_5046.s225, 25) + "   @08@[@0E@30@08@] @0F@" + Pad(t27_5046.s725, 25) + "     @08@│@0F@ C"
  583.                       Print "@0F@ A @08@│  @08@[@0E@11@08@] @0F@" + Pad(t27_5046.s250, 25) + "   @08@[@0E@31@08@] @0F@" + Pad(t27_5046.s750, 25) + "     @08@│@0F@ A"
  584.                       Print "@0F@ T @08@│  @08@[@0E@12@08@] @0F@" + Pad(t27_5046.s275, 25) + "   @08@[@0E@32@08@] @0F@" + Pad(t27_5046.s775, 25) + "     @08@│@0F@ T"
  585.                       Print "@0F@ E @08@│  @08@[@0E@13@08@] @0F@" + Pad(t27_5046.s300, 25) + "   @08@[@0E@33@08@] @0F@" + Pad(t27_5046.s800, 25) + "     @08@│@0F@ E"
  586.                       Print "@0F@ G @08@│  @08@[@0E@14@08@] @0F@" + Pad(t27_5046.s325, 25) + "   @08@[@0E@34@08@] @0F@" + Pad(t27_5046.s825, 25) + "     @08@│@0F@ G"
  587.                       Print "@0F@ O @08@│  @08@[@0E@15@08@] @0F@" + Pad(t27_5046.s350, 25) + "   @08@[@0E@35@08@] @0F@" + Pad(t27_5046.s850, 25) + "     @08@│@0F@ O"
  588.                       Print "@0F@ R @08@│  @08@[@0E@16@08@] @0F@" + Pad(t27_5046.s375, 25) + "   @08@[@0E@36@08@] @0F@" + Pad(t27_5046.s875, 25) + "     @08@│@0F@ R"
  589.                       Print "@0F@ I @08@│  @08@[@0E@17@08@] @0F@" + Pad(t27_5046.s400, 25) + "   @08@[@0E@37@08@] @0F@" + Pad(t27_5046.s900, 25) + "     @08@│@0F@ I"
  590.                       Print "@0F@ E @08@│  @08@[@0E@18@08@] @0F@" + Pad(t27_5046.s425, 25) + "   @08@[@0E@38@08@] @0F@" + Pad(t27_5046.s925, 25) + "     @08@│@0F@ E"
  591.                       Print "@0F@ S @08@│  @08@[@0E@19@08@] @0F@" + Pad(t27_5046.s450, 25) + "   @08@[@0E@39@08@] @0F@" + Pad(t27_5046.s950, 25) + "     @08@│@0F@ S"
  592.                       Print "   @08@│  @08@[@0E@20@08@] @0F@" + Pad(t27_5046.s475, 25) + "   @08@[@0E@40@08@] @0F@" + Pad(t27_5046.s975, 25) + "     @08@│"
  593.                       s4910 = InputMask("Please select a product category, or [@0F@Q@0E@]uit. ", "XX", "", 1213417543)
  594.                       If Val(s4910) >= 1 And Val(s4910) <= 40 Then
  595.                       Else
  596.  8691                   GoTo 1360
  597.                       End If
  598.  8697                 If s4968 = "O" Then
  599.                         Del s4932 + s4910 + "PROD.DAT"
  600.                         i4972 = 0
  601.                       End If
  602.  8740                 If s4968 = "A" Then
  603.                         If Exists(s4932 + s4910 + "PROD.DAT") Then
  604.                           Open s4932 + s4910 + "PROD.DAT" For Random As 1 Len = 219 '! This value should probably be replaced with a "SizeOf" expression
  605.                           i4972 = LOF(1)
  606.                           Close 1
  607.                         Else
  608.  8836                     i4972 = 0
  609.                         End If
  610.                       End If
  611.  8842                 If Local Then
  612.                         Locate 17, 1
  613.                       End If
  614.  8858                 If ReceiveFile(s4932 + s4910 + "PROD.IMP", 1213417543) Then
  615.                       Else
  616.  8895                   GoTo 1360
  617.                       End If
  618.  8901                 Locate 14, 14
  619.                       MorePrompt(0)
  620.                       Print "@0E@Received file:  @0F@" + s4910; "+PROD.IMP                              "
  621.                       Open s4932 + s4910 + "PROD.IMP" For Input As 1
  622.                       Do
  623.  8967                   Input #1, s6054
  624.                         i6058 = InStr(s6054, s4914)
  625.                         t28_4467.s0 = Mid(s6054, 2, i6058 - 2)
  626.                         i6060 = i6058
  627.                         i6058 = InStr(i6058 + 1, s6054, s4914)
  628.                         t28_4467.s20 = Mid(s6054, i6060 + 3, i6058 - i6060 - 3)
  629.                         i6060 = i6058
  630.                         i6058 = InStr(i6058 + 1, s6054, s4914)
  631.                         t28_4467.s30 = Mid(s6054, i6060 + 3, i6058 - i6060 - 3)
  632.                         i6060 = i6058
  633.                         i6058 = InStr(i6058 + 1, s6054, s4914)
  634.                         t28_4467.s80 = Mid(s6054, i6060 + 3, i6058 - i6060 - 3)
  635.                         i6060 = i6058
  636.                         i6058 = InStr(i6058 + 1, s6054, s4914)
  637.                         t28_4467.s130 = Mid(s6054, i6060 + 3, i6058 - i6060 - 3)
  638.                         i6060 = i6058
  639.                         i6058 = InStr(i6058 + 1, s6054, s4914)
  640.                         t28_4467.s180 = Mid(s6054, i6060 + 3, i6058 - i6060 - 3)
  641.                         i6060 = i6058
  642.                         i6058 = InStr(i6058 + 1, s6054, s4914)
  643.                         t28_4467.s188 = Mid(s6054, i6060 + 3, i6058 - i6060 - 3)
  644.                         i6060 = i6058
  645.                         i6058 = InStr(i6058 + 1, s6054, s4914)
  646.                         t28_4467.s201 = Mid(s6054, i6060 + 3, i6058 - i6060 - 3)
  647.                         i6060 = i6058
  648.                         i6058 = InStr(i6058 + 1, s6054, s4914)
  649.                         t28_4467.s207 = Mid(s6054, i6060 + 3, i6058 - i6060 - 3)
  650.                         i6060 = i6058
  651.                         i6058 = InStr(i6058 + 1, s6054, s4914)
  652.                         t28_4467.s211 = Mid(s6054, i6060 + 3, i6058 - i6060 - 3)
  653.                         i6060 = i6058
  654.                         i6058 = InStr(i6058 + 1, s6054, s4914)
  655.                         If i6058 = 0 Then
  656.                           t28_4467.s215 = Mid(s6054, i6060 + 3, Len(s6054) - i6060 - 3)
  657.                         Else
  658.  9806                     t28_4467.s215 = Mid(s6054, i6060 + 3, i6058 - i6060 - 3)
  659.                         End If
  660.  9848                   If t28_4467.s0 = "" Then
  661.                         Else
  662.  9873                     Cls 
  663.                           Print ""
  664.                           Print "@0E@PRODUCT:    @0F@" + t28_4467.s0
  665.                           Print "@0E@PRICE:      @0F@" + t28_4467.s20
  666.                           Print "@0E@DESC1:      @0F@" + t28_4467.s30
  667.                           Print "@0E@DESC2:      @0F@" + t28_4467.s80
  668.                           Print "@0E@DESC3:      @0F@" + t28_4467.s130
  669.                           Print "@0E@STOCK#:     @0F@" + t28_4467.s180
  670.                           Print "@0E@UPC:        @0F@" + t28_4467.s188
  671.                           Print "@0E@WEIGHT:     @0F@" + t28_4467.s201
  672.                           Print "@0E@GROUND:     @0F@" + t28_4467.s207
  673.                           Print "@0E@2nd DAY:    @0F@" + t28_4467.s211
  674.                           Print "@0E@Overnight:  @0F@" + t28_4467.s215
  675.                           If s4940 = "NO" Then
  676.                             Print ""
  677.                             s4954 = InputMask("[@0F@A@0E@]dd this record, [@0F@S@0E@]kip this record, [@0F@I@0E@]mport all records, [@0F@Q@0E@]uit:  ", "X", "", 1213417543)
  678.                             If UCase(s4954) = "A" Then
  679.                             Else
  680. 10191                         If UCase(s4954) = "S" Then
  681.                                 GoTo 10344
  682.                               End If
  683. 10217                         If UCase(s4954) = "I" Then
  684.                                 s4940 = "YES"
  685.                               Else
  686. 10252                           If UCase(s4954) = "Q" Then
  687.                                   Close 1
  688.                                   Close 2
  689.                                   GoTo 1360
  690.                                 End If
  691.                               End If
  692.                             End If
  693.                           End If
  694. 10288                     Open s4932 + s4910 + "PROD.DAT" For Random As 2 Len = 219 '! This value should probably be replaced with a "SizeOf" expression
  695.                           Put 2, i4972 + 1, t28_4467 '! 219 bytes
  696.                           Close 2
  697.                         End If
  698. 10344                   i4972 = i4972 + 1
  699.                       Loop While Not EOF(1)
  700.                       Close 1
  701.                       GoTo 1360
  702.                     Else
  703. 10388                 If s65528_ = "N" Then
  704.                         GoTo 1360
  705.                         GoTo 10417
  706.                       End If
  707.                     End If
  708. 10417             Loop
  709.                   t28_4467.s0 = ""
  710.                   t28_4467.s20 = ""
  711.                 Loop
  712. 10455           Color 14, 0
  713.                 Cls 
  714.                 Print "   @08@│  @08@[@0E@ 1@08@] @0F@" + Pad(t27_5046.s0, 25) + "   @08@[@0E@21@08@] @0F@" + Pad(t27_5046.s500, 25) + "     @08@│"
  715.                 Print "@0F@ P @08@│  @08@[@0E@ 2@08@] @0F@" + Pad(t27_5046.s25, 25) + "   @08@[@0E@22@08@] @0F@" + Pad(t27_5046.s525, 25) + "     @08@│@0F@ P"
  716.                 Print "@0F@ R @08@│  @08@[@0E@ 3@08@] @0F@" + Pad(t27_5046.s50, 25) + "   @08@[@0E@23@08@] @0F@" + Pad(t27_5046.s550, 25) + "     @08@│@0F@ R"
  717.                 Print "@0F@ O @08@│  @08@[@0E@ 4@08@] @0F@" + Pad(t27_5046.s75, 25) + "   @08@[@0E@24@08@] @0F@" + Pad(t27_5046.s575, 25) + "     @08@│@0F@ O"
  718.                 Print "@0F@ D @08@│  @08@[@0E@ 5@08@] @0F@" + Pad(t27_5046.s100, 25) + "   @08@[@0E@25@08@] @0F@" + Pad(t27_5046.s600, 25) + "     @08@│@0F@ D"
  719.                 Print "@0F@ U @08@│  @08@[@0E@ 6@08@] @0F@" + Pad(t27_5046.s125, 25) + "   @08@[@0E@26@08@] @0F@" + Pad(t27_5046.s625, 25) + "     @08@│@0F@ U"
  720.                 Print "@0F@ C @08@│  @08@[@0E@ 7@08@] @0F@" + Pad(t27_5046.s150, 25) + "   @08@[@0E@27@08@] @0F@" + Pad(t27_5046.s650, 25) + "     @08@│@0F@ C"
  721.                 Print "@0F@ T @08@│  @08@[@0E@ 8@08@] @0F@" + Pad(t27_5046.s175, 25) + "   @08@[@0E@28@08@] @0F@" + Pad(t27_5046.s675, 25) + "     @08@│@0F@ T"
  722.                 Print "   @08@│  @08@[@0E@ 9@08@] @0F@" + Pad(t27_5046.s200, 25) + "   @08@[@0E@29@08@] @0F@" + Pad(t27_5046.s700, 25) + "     @08@│"
  723.                 Print "@0F@ C @08@│  @08@[@0E@10@08@] @0F@" + Pad(t27_5046.s225, 25) + "   @08@[@0E@30@08@] @0F@" + Pad(t27_5046.s725, 25) + "     @08@│@0F@ C"
  724.                 Print "@0F@ A @08@│  @08@[@0E@11@08@] @0F@" + Pad(t27_5046.s250, 25) + "   @08@[@0E@31@08@] @0F@" + Pad(t27_5046.s750, 25) + "     @08@│@0F@ A"
  725.                 Print "@0F@ T @08@│  @08@[@0E@12@08@] @0F@" + Pad(t27_5046.s275, 25) + "   @08@[@0E@32@08@] @0F@" + Pad(t27_5046.s775, 25) + "     @08@│@0F@ T"
  726.                 Print "@0F@ E @08@│  @08@[@0E@13@08@] @0F@" + Pad(t27_5046.s300, 25) + "   @08@[@0E@33@08@] @0F@" + Pad(t27_5046.s800, 25) + "     @08@│@0F@ E"
  727.                 Print "@0F@ G @08@│  @08@[@0E@14@08@] @0F@" + Pad(t27_5046.s325, 25) + "   @08@[@0E@34@08@] @0F@" + Pad(t27_5046.s825, 25) + "     @08@│@0F@ G"
  728.                 Print "@0F@ O @08@│  @08@[@0E@15@08@] @0F@" + Pad(t27_5046.s350, 25) + "   @08@[@0E@35@08@] @0F@" + Pad(t27_5046.s850, 25) + "     @08@│@0F@ O"
  729.                 Print "@0F@ R @08@│  @08@[@0E@16@08@] @0F@" + Pad(t27_5046.s375, 25) + "   @08@[@0E@36@08@] @0F@" + Pad(t27_5046.s875, 25) + "     @08@│@0F@ R"
  730.                 Print "@0F@ I @08@│  @08@[@0E@17@08@] @0F@" + Pad(t27_5046.s400, 25) + "   @08@[@0E@37@08@] @0F@" + Pad(t27_5046.s900, 25) + "     @08@│@0F@ I"
  731.                 Print "@0F@ E @08@│  @08@[@0E@18@08@] @0F@" + Pad(t27_5046.s425, 25) + "   @08@[@0E@38@08@] @0F@" + Pad(t27_5046.s925, 25) + "     @08@│@0F@ E"
  732.                 Print "@0F@ S @08@│  @08@[@0E@19@08@] @0F@" + Pad(t27_5046.s450, 25) + "   @08@[@0E@39@08@] @0F@" + Pad(t27_5046.s950, 25) + "     @08@│@0F@ S"
  733.                 Print "   @08@│  @08@[@0E@20@08@] @0F@" + Pad(t27_5046.s475, 25) + "   @08@[@0E@40@08@] @0F@" + Pad(t27_5046.s975, 25) + "     @08@│"
  734.                 s4910 = InputMask("Please select a product category, or [@0F@Q@0E@]uit. ", "XX", "", 1213417543)
  735.                 If Val(s4910) >= 1 And Val(s4910) <= 40 Then
  736.                   GoTo 11698
  737.                 End If
  738. 11692         Loop
  739. 11698         If Exists(s4932 + s4910 + "PROD.DAT") Then
  740.                 Open s4932 + s4910 + "PROD.DAT" For Random As 1 Len = 219 '! This value should probably be replaced with a "SizeOf" expression
  741.               Else
  742. 11762           CopyFile(s4986 + "PRODUCTS.DAT", s4932 + s4910 + "PROD.DAT")
  743.                 Open s4932 + s4910 + "PROD.DAT" For Random As 1 Len = 219 '! This value should probably be replaced with a "SizeOf" expression
  744.                 GoTo 15075
  745.               End If
  746. 11832         MorePrompt(0)
  747.               i4972 = 1
  748.               i4958 = 1
  749.               Do
  750.                 Do
  751. 11851             Cls 
  752.                   Print "  @0E@Record #           Product Name                 Stock#            Price"
  753.                   Print ""
  754.                   Do
  755. 11872               Get 1, i4972, t28_4467 '! 219 bytes
  756.                     Print "  @0F@" + LeftPad(Str(i4972), 8) + "           @0F@" + Pad(t28_4467.s0, 20) + "        " + Pad(t28_4467.s180, 8) + "     " + LeftPad(FormatNumber(Val(t28_4467.s20), "$###,###.##"), 8)
  757.                     i4972 = i4972 + 1
  758.                     i4958 = i4958 + 1
  759.                     If i4958 = 16 Then
  760.                       Print ""
  761.                       s4960 = InputMask("[@0F@##@0E@] product to edit/delete, [@0F@A@0E@]dd, [@0F@N@0E@]ext, [@0F@P@0E@]revious, [@0F@Q@0E@]uit  ", "XXXXXXXX", "", 1213417543)
  762.                       If s4960 = "" Then
  763.                         s4960 = "N"
  764.                       End If
  765. 12095                 If UCase(s4960) = "A" Then
  766.                         t28_4467.s0 = ""
  767.                         t28_4467.s20 = ""
  768.                         t28_4467.s30 = ""
  769.                         t28_4467.s80 = ""
  770.                         t28_4467.s130 = ""
  771.                         t28_4467.s180 = ""
  772.                         t28_4467.s188 = ""
  773.                         t28_4467.s201 = ""
  774.                         t28_4467.s207 = ""
  775.                         t28_4467.s211 = ""
  776.                         t28_4467.s215 = ""
  777.                         Cls 
  778.                         Print "@0E@DO NOT INCLUDE DECIMALS OR $ IN PRICES.  @0F@$123.99@0E@ SHOULE BE ENTERED AS @0F@12399 @0E@"
  779.                         Print ""
  780.                         Print "@0E@PRODUCT:       [" + Pad(t28_4467.s0, 20) + "]"
  781.                         Print "@0E@PRICE:         [" + Pad(t28_4467.s20, 10) + "]"
  782.                         Print "@0E@DESC1:         [" + Pad(t28_4467.s30, 50) + "]"
  783.                         Print "@0E@DESC2:         [" + Pad(t28_4467.s80, 50) + "]"
  784.                         Print "@0E@DESC3:         [" + Pad(t28_4467.s130, 50) + "]"
  785.                         Print "@0E@STOCK#:        [" + Pad(t28_4467.s180, 8) + "]"
  786.                         Print "@0E@UPC:           [" + Pad(t28_4467.s188, 13) + "]"
  787.                         Print "@0E@WEIGHT:        [" + Pad(t28_4467.s201, 6) + "]"
  788.                         Print "@0E@GROUND:        [" + Pad(t28_4467.s207, 4) + "]"
  789.                         Print "@0E@2nd DAY:       [" + Pad(t28_4467.s211, 4) + "]"
  790.                         Print "@0E@OVERNIGHT:     [" + Pad(t28_4467.s215, 4) + "]"
  791.                         Locate 1, 1
  792.                         Print "@0E@DO NOT INCLUDE DECIMALS OR $ IN PRICES.  @0F@$123.99@0E@ SHOULE BE ENTERED AS @0F@12399 @0E@"
  793.                         Print ""
  794.                         t28_4467.s0 = InputMask("PRODUCT:       ", "XXXXXXXXXXXXXXXXXXXX", t28_4467.s0, 1213417543)
  795.                         t28_4467.s20 = InputMask("PRICE:         ", "9999999999", t28_4467.s20, 1213417543)
  796.                         t28_4467.s30 = InputMask("DESC1:         ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t28_4467.s30, 1213417543)
  797.                         t28_4467.s80 = InputMask("DESC2:         ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t28_4467.s80, 1213417543)
  798.                         t28_4467.s130 = InputMask("DESC3:         ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t28_4467.s130, 1213417543)
  799.                         t28_4467.s180 = InputMask("STOCK#:        ", "XXXXXXXX", t28_4467.s180, 1213417543)
  800.                         t28_4467.s188 = InputMask("UPC:           ", "XXXXXXXXXXXXX", t28_4467.s188, 1213417543)
  801.                         t28_4467.s201 = InputMask("WEIGHT:        ", "XXXXXX", t28_4467.s201, 1213417543)
  802.                         t28_4467.s207 = InputMask("GROUND:        ", "XXXX", t28_4467.s207, 1213417543)
  803.                         t28_4467.s211 = InputMask("2nd DAY:       ", "XXXX", t28_4467.s211, 1213417543)
  804.                         t28_4467.s215 = InputMask("OVERNIGHT:     ", "XXXX", t28_4467.s215, 1213417543)
  805.                         If t28_4467.s20 = "" Then
  806.                           Put 1, LOF(1) + 1, t28_4467 '! 219 bytes
  807.                         End If
  808. 13133                   w4944 = LOF(1)
  809.                       End If
  810. 13143                 If UCase(s4960) = "Q" Then
  811.                         Close 1
  812.                         GoTo 1360
  813.                       End If
  814. 13174                 If UCase(s4960) = "N" Then
  815.                         Cls 
  816.                         Print "  @0E@Record #           Product Name           Stock#                  Price"
  817.                         Print ""
  818.                       End If
  819. 13215                 If UCase(s4960) = "P" Then
  820.                         i4972 = i4972 - i4958 - 16
  821.                         If i4972 < 1 Then
  822.                           i4972 = 1
  823.                         End If
  824. 13278                   Cls 
  825.                         Print "  @0E@Record #           Product Name           Stock#                  Price"
  826.                         Print ""
  827.                       End If
  828. 13299                 If Val(s4960) >= 1 And Val(s4960) <= LOF(1) Then
  829.                         i4918 = Val(s4960)
  830. 13344                   Get 1, i4918, t28_4467 '! 219 bytes
  831.                         Do
  832. 13359                     Cls 
  833.                           Print "PRODUCT:  @0F@" + UCase(t28_4467.s0)
  834.                           Print ""
  835.                           Print "@0E@PRODUCT:        @0F@" + t28_4467.s0
  836.                           Print "@0E@PRICE:          @0F@" + t28_4467.s20
  837.                           Print "@0E@DESC1:          @0F@" + t28_4467.s30
  838.                           Print "@0E@DESC2:          @0F@" + t28_4467.s80
  839.                           Print "@0E@DESC3:          @0F@" + t28_4467.s130
  840.                           Print "@0E@STOCK#:         @0F@" + t28_4467.s180
  841.                           Print "@0E@UPC:            @0F@" + t28_4467.s188
  842.                           Print "@0E@WEIGHT:         @0F@" + t28_4467.s201
  843.                           Print "@0E@GROUND:         @0F@" + t28_4467.s207
  844.                           Print "@0E@2nd DAY:        @0F@" + t28_4467.s211
  845.                           Print "@0E@OVERNIGHT:      @0F@" + t28_4467.s215
  846.                           Print ""
  847.                           s4950 = InputMask("[@0F@E@0E@]dit record, [@0F@D@0E@]elete record, [@0F@N@0E@]ext, [@0F@P@0E@]revious, [@0F@Q@0E@]uit:  ", "X", "", 1213417543)
  848.                           If UCase(s4950) = "Q" Then
  849.                             i4972 = i4972 - i4958
  850.                             If i4972 < 1 Then
  851.                               i4972 = 1
  852.                             End If
  853. 13713                       GoTo 11851
  854.                           End If
  855. 13719                     If UCase(s4950) = "N" Then
  856.                             i4918 = i4918 + 1
  857.                             If i4918 > LOF(1) Then
  858.                               i4918 = LOF(1)
  859.                             End If
  860. 13781                       GoTo 13344
  861.                           End If
  862. 13787                     If UCase(s4950) = "P" Then
  863.                             i4918 = i4918 - 1
  864.                             If i4918 < 1 Then
  865.                               i4918 = 1
  866.                             End If
  867. 13843                       GoTo 13344
  868.                           End If
  869. 13849                     If UCase(s4950) = "D" Then
  870.                             t28_4467.s0 = "DEL"
  871.                             t28_4467.s20 = ""
  872.                             t28_4467.s30 = ""
  873.                             t28_4467.s80 = ""
  874.                             t28_4467.s130 = ""
  875.                             t28_4467.s180 = ""
  876.                             t28_4467.s188 = ""
  877.                             t28_4467.s201 = ""
  878.                             t28_4467.s207 = ""
  879.                             t28_4467.s211 = ""
  880.                             t28_4467.s215 = ""
  881.                             Put 1, i4918, t28_4467 '! 219 bytes
  882.                           End If
  883. 14045                     If UCase(s4950) = "E" Then
  884.                             Cls 
  885.                             Print "PRODUCT:  @0F@" + UCase(t28_4467.s0)
  886.                             Print ""
  887.                             Print "@0E@DO NOT INCLUDE DECIMALS OR $ IN PRICES.  @0F@$123.99@0E@ SHOULE BE ENTERED AS @0F@12399 @0E@"
  888.                             Print ""
  889.                             Print "@0E@PRODUCT:       [" + Pad(t28_4467.s0, 20) + "]"
  890.                             Print "@0E@PRICE:         [" + Pad(t28_4467.s20, 10) + "]"
  891.                             Print "@0E@DESC1:         [" + Pad(t28_4467.s30, 50) + "]"
  892.                             Print "@0E@DESC2:         [" + Pad(t28_4467.s80, 50) + "]"
  893.                             Print "@0E@DESC3:         [" + Pad(t28_4467.s130, 50) + "]"
  894.                             Print "@0E@STOCK#:        [" + Pad(t28_4467.s180, 8) + "]"
  895.                             Print "@0E@UPC:           [" + Pad(t28_4467.s188, 13) + "]"
  896.                             Print "@0E@WEIGHT:        [" + Pad(t28_4467.s201, 6) + "]"
  897.                             Print "@0E@GROUND:        [" + Pad(t28_4467.s207, 4) + "]"
  898.                             Print "@0E@2nd DAY:       [" + Pad(t28_4467.s211, 4) + "]"
  899.                             Print "@0E@OVERNIGHT:     [" + Pad(t28_4467.s215, 4) + "]"
  900.                             Print ""
  901.                             Print "[@0F@E@0E@]dit record, [@0F@D@0E@]elete record, [@0F@Q@0E@]uit:  [ ]"
  902.                             Locate 1, 1
  903.                             Print "PRODUCT:  @0F@" + UCase(t28_4467.s0)
  904.                             Print ""
  905.                             Print "@0E@DO NOT INCLUDE DECIMALS OR $ IN PRICES.  @0F@$123.99@0E@ SHOULE BE ENTERED AS @0F@12399 @0E@"
  906.                             Print ""
  907.                             t28_4467.s0 = InputMask("PRODUCT:       ", "XXXXXXXXXXXXXXXXXXXX", t28_4467.s0, 1213417543)
  908.                             t28_4467.s20 = InputMask("PRICE:         ", "9999999999", t28_4467.s20, 1213417543)
  909.                             t28_4467.s30 = InputMask("DESC1:         ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t28_4467.s30, 1213417543)
  910.                             t28_4467.s80 = InputMask("DESC2:         ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t28_4467.s80, 1213417543)
  911.                             t28_4467.s130 = InputMask("DESC3:         ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t28_4467.s130, 1213417543)
  912.                             t28_4467.s180 = InputMask("STOCK#:        ", "XXXXXXXX", t28_4467.s180, 1213417543)
  913.                             t28_4467.s188 = InputMask("UPC:           ", "XXXXXXXXXXXXX", t28_4467.s188, 1213417543)
  914.                             t28_4467.s201 = InputMask("WEIGHT:        ", "XXXXXX", t28_4467.s201, 1213417543)
  915.                             t28_4467.s207 = InputMask("GROUND:        ", "XXXX", t28_4467.s207, 1213417543)
  916.                             t28_4467.s211 = InputMask("2nd DAY:       ", "XXXX", t28_4467.s211, 1213417543)
  917.                             t28_4467.s215 = InputMask("OVERNIGHT:     ", "XXXX", t28_4467.s215, 1213417543)
  918.                             Put 1, i4918, t28_4467 '! 219 bytes
  919.                           End If
  920. 14971                   Loop
  921.                         Cls 
  922.                         Print "  @0E@Record #           Product Name           Stock#                  Price"
  923.                         Print ""
  924.                         i4972 = i4972 - i4958 - 16
  925.                       End If
  926. 15019                 i4958 = 1
  927.                     End If
  928. 15026             Loop While Not EOF(1)
  929.                   Print ""
  930.                   s4960 = InputMask("[@0F@##@0E@] product to edit/delete, [@0F@A@0E@]dd product, [@0F@P@0E@]revious page, [@0F@Q@0E@]uit  ", "XXXXXXXX", "", 1213417543)
  931. 15075             If UCase(s4960) = "A" Then
  932.                     t28_4467.s0 = ""
  933.                     t28_4467.s20 = ""
  934.                     t28_4467.s30 = ""
  935.                     t28_4467.s80 = ""
  936.                     t28_4467.s130 = ""
  937.                     t28_4467.s180 = ""
  938.                     t28_4467.s188 = ""
  939.                     t28_4467.s207 = ""
  940.                     t28_4467.s211 = ""
  941.                     t28_4467.s215 = ""
  942.                     t28_4467.s201 = ""
  943.                     Cls 
  944.                     Print "PRODUCT:  @0F@" + UCase(t28_4467.s0)
  945.                     Print "@0E@DO NOT INCLUDE DECIMALS OR $ IN PRICES.  @0F@$123.99@0E@ SHOULE BE ENTERED AS @0F@12399 @0E@"
  946.                     Print ""
  947.                     Print "@0E@PRODUCT:       [" + Pad(t28_4467.s0, 20) + "]"
  948.                     Print "@0E@PRICE:         [" + Pad(t28_4467.s20, 10) + "]"
  949.                     Print "@0E@DESC1:         [" + Pad(t28_4467.s30, 50) + "]"
  950.                     Print "@0E@DESC2:         [" + Pad(t28_4467.s80, 50) + "]"
  951.                     Print "@0E@DESC3:         [" + Pad(t28_4467.s130, 50) + "]"
  952.                     Print "@0E@STOCK#:        [" + Pad(t28_4467.s180, 8) + "]"
  953.                     Print "@0E@UPC:           [" + Pad(t28_4467.s188, 13) + "]"
  954.                     Print "@0E@WEIGHT:        [" + Pad(t28_4467.s201, 6) + "]"
  955.                     Print "@0E@GROUND:        [" + Pad(t28_4467.s207, 4) + "]"
  956.                     Print "@0E@2nd DAY:       [" + Pad(t28_4467.s211, 4) + "]"
  957.                     Print "@0E@OVERNIGHT:     [" + Pad(t28_4467.s215, 4) + "]"
  958.                     Locate 1, 1
  959.                     Print "PRODUCT:  @0F@" + UCase(t28_4467.s0)
  960.                     Print "@0E@DO NOT INCLUDE DECIMALS OR $ IN PRICES.  @0F@$123.99@0E@ SHOULE BE ENTERED AS @0F@12399 @0E@"
  961.                     Print ""
  962.                     t28_4467.s0 = InputMask("PRODUCT:       ", "XXXXXXXXXXXXXXXXXXXX", t28_4467.s0, 1213417543)
  963.                     t28_4467.s20 = InputMask("PRICE:         ", "9999999999", t28_4467.s20, 1213417543)
  964.                     t28_4467.s30 = InputMask("DESC1:         ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t28_4467.s30, 1213417543)
  965.                     t28_4467.s80 = InputMask("DESC2:         ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t28_4467.s80, 1213417543)
  966.                     t28_4467.s130 = InputMask("DESC3:         ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t28_4467.s130, 1213417543)
  967.                     t28_4467.s180 = InputMask("STOCK#:        ", "XXXXXXXX", t28_4467.s180, 1213417543)
  968.                     t28_4467.s188 = InputMask("UPC:           ", "XXXXXXXXXXXXX", t28_4467.s188, 1213417543)
  969.                     t28_4467.s201 = InputMask("WEIGHT:        ", "XXXXXX", t28_4467.s201, 1213417543)
  970.                     t28_4467.s207 = InputMask("GROUND:        ", "XXXX", t28_4467.s207, 1213417543)
  971.                     t28_4467.s211 = InputMask("2nd DAY:       ", "XXXX", t28_4467.s211, 1213417543)
  972.                     t28_4467.s215 = InputMask("OVERNIGHT:     ", "XXXX", t28_4467.s215, 1213417543)
  973.                     Put 1, LOF(1) + 1, t28_4467 '! 219 bytes
  974.                     w4944 = LOF(1)
  975.                   End If
  976. 16140             If s4960 = "" Then
  977.                     s4960 = "N"
  978.                   End If
  979. 16166             If UCase(s4960) = "Q" Then
  980.                     Close 1
  981.                     GoTo 1360
  982.                   End If
  983. 16197             If UCase(s4960) = "P" Then
  984.                     i4972 = i4972 - i4958 - 16
  985.                     If i4972 < 1 Then
  986.                       i4972 = 1
  987.                     End If
  988. 16260               Cls 
  989.                     Print "  @0E@Record #           Product Name           Stock#                  Price"
  990.                     Print ""
  991.                   End If
  992. 16281             If (Val(s4960) >= 1 And Val(s4960) <= LOF(1)) = 0 Then GoTo 17823
  993.                   i4918 = Val(s4960)
  994.                   Get 1, i4918, t28_4467 '! 219 bytes
  995.                   Cls 
  996.                   Print "PRODUCT:  @0F@" + UCase(t28_4467.s0)
  997.                   Print ""
  998.                   Print "@0E@PRODUCT:        @0F@" + t28_4467.s0
  999.                   Print "@0E@PRICE:          @0F@" + t28_4467.s20
  1000.                   Print "@0E@DESC1:          @0F@" + t28_4467.s30
  1001.                   Print "@0E@DESC2:          @0F@" + t28_4467.s80
  1002.                   Print "@0E@DESC3:          @0F@" + t28_4467.s130
  1003.                   Print "@0E@STOCK#:         @0F@" + t28_4467.s180
  1004.                   Print "@0E@UPC:            @0F@" + t28_4467.s188
  1005.                   Print "@0E@WEIGHT:         @0F@" + t28_4467.s201
  1006.                   Print "@0E@GROUND:         @0F@" + t28_4467.s207
  1007.                   Print "@0E@2nd DAY:        @0F@" + t28_4467.s211
  1008.                   Print "@0E@OVERNIGHT:      @0F@" + t28_4467.s215
  1009.                   Print ""
  1010.                   s4950 = InputMask("[@0F@E@0E@]dit record, [@0F@D@0E@]elete record, [@0F@Q@0E@]uit:  ", "X", "", 1213417543)
  1011.                   If (UCase(s4950) = "Q") = 0 Then GoTo 16701
  1012.                   i4972 = i4972 - i4958
  1013.                   If i4972 < 1 Then
  1014.                     i4972 = 1
  1015.                   End If
  1016. 16695           Loop
  1017. 16701           If UCase(s4950) = "D" Then
  1018.                   t28_4467.s0 = "DEL"
  1019.                   t28_4467.s20 = ""
  1020.                   t28_4467.s30 = ""
  1021.                   t28_4467.s80 = ""
  1022.                   t28_4467.s130 = ""
  1023.                   t28_4467.s180 = ""
  1024.                   t28_4467.s188 = ""
  1025.                   t28_4467.s201 = ""
  1026.                   t28_4467.s211 = ""
  1027.                   t28_4467.s215 = ""
  1028.                   t28_4467.s201 = ""
  1029.                   Put 1, i4918, t28_4467 '! 219 bytes
  1030.                 End If
  1031. 16897           If UCase(s4950) = "E" Then
  1032.                   Cls 
  1033.                   Print "PRODUCT:  @0F@" + UCase(t28_4467.s0)
  1034.                   Print ""
  1035.                   Print "@0E@DO NOT INCLUDE DECIMALS OR $ IN PRICES.  @0F@$123.99@0E@ SHOULE BE ENTERED AS @0F@12399 @0E@"
  1036.                   Print ""
  1037.                   Print "@0E@PRODUCT:       [" + Pad(t28_4467.s0, 20) + "]"
  1038.                   Print "@0E@PRICE:         [" + Pad(t28_4467.s20, 10) + "]"
  1039.                   Print "@0E@DESC1:         [" + Pad(t28_4467.s30, 50) + "]"
  1040.                   Print "@0E@DESC2:         [" + Pad(t28_4467.s80, 50) + "]"
  1041.                   Print "@0E@DESC3:         [" + Pad(t28_4467.s130, 50) + "]"
  1042.                   Print "@0E@STOCK#:        [" + Pad(t28_4467.s180, 8) + "]"
  1043.                   Print "@0E@UPC:           [" + Pad(t28_4467.s188, 13) + "]"
  1044.                   Print "@0E@WEIGHT:        [" + Pad(t28_4467.s201, 6) + "]"
  1045.                   Print "@0E@GROUND:        [" + Pad(t28_4467.s207, 4) + "]"
  1046.                   Print "@0E@2nd DAY:       [" + Pad(t28_4467.s211, 4) + "]"
  1047.                   Print "@0E@OVERNIGHT:     [" + Pad(t28_4467.s215, 4) + "]"
  1048.                   Print ""
  1049.                   Print "[@0F@E@0E@]dit record, [@0F@D@0E@]elete record, [@0F@Q@0E@]uit:  [ ]"
  1050.                   Locate 1, 1
  1051.                   Print "PRODUCT:  @0F@" + UCase(t28_4467.s0)
  1052.                   Print ""
  1053.                   Print "@0E@DO NOT INCLUDE DECIMALS OR $ IN PRICES.  @0F@$123.99@0E@ SHOULE BE ENTERED AS @0F@12399 @0E@"
  1054.                   Print ""
  1055.                   t28_4467.s0 = InputMask("PRODUCT:       ", "XXXXXXXXXXXXXXXXXXXX", t28_4467.s0, 1213417543)
  1056.                   t28_4467.s20 = InputMask("PRICE:         ", "9999999999", t28_4467.s20, 1213417543)
  1057.                   t28_4467.s30 = InputMask("DESC1:         ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t28_4467.s30, 1213417543)
  1058.                   t28_4467.s80 = InputMask("DESC2:         ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t28_4467.s80, 1213417543)
  1059.                   t28_4467.s130 = InputMask("DESC3:         ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t28_4467.s130, 1213417543)
  1060.                   t28_4467.s180 = InputMask("STOCK#:        ", "XXXXXXXX", t28_4467.s180, 1213417543)
  1061.                   t28_4467.s188 = InputMask("UPC:           ", "XXXXXXXXXXXXX", t28_4467.s188, 1213417543)
  1062.                   t28_4467.s201 = InputMask("WEIGHT:        ", "XXXXXX", t28_4467.s201, 1213417543)
  1063.                   t28_4467.s207 = InputMask("GROUND:        ", "XXXX", t28_4467.s207, 1213417543)
  1064.                   t28_4467.s211 = InputMask("2nd DAY:       ", "XXXX", t28_4467.s211, 1213417543)
  1065.                   t28_4467.s215 = InputMask("OVERNIGHT:     ", "XXXX", t28_4467.s215, 1213417543)
  1066.                   Put 1, i4918, t28_4467 '! 219 bytes
  1067.                 End If
  1068. 17823           i4972 = i4972 - i4958 - 16
  1069.                 i4958 = 1
  1070.                 If i4972 < 1 Then
  1071.                   i4972 = 1
  1072.                 End If
  1073. 17873         Loop
  1074. 17879         Color 14, 0
  1075.               Cls 
  1076.               Print "   @08@│  @08@[@0E@ 1@08@] @0F@" + Pad(t27_5046.s0, 25) + "   @08@[@0E@21@08@] @0F@" + Pad(t27_5046.s500, 25) + "     @08@│"
  1077.               Print "@0F@ P @08@│  @08@[@0E@ 2@08@] @0F@" + Pad(t27_5046.s25, 25) + "   @08@[@0E@22@08@] @0F@" + Pad(t27_5046.s525, 25) + "     @08@│@0F@ P"
  1078.               Print "@0F@ R @08@│  @08@[@0E@ 3@08@] @0F@" + Pad(t27_5046.s50, 25) + "   @08@[@0E@23@08@] @0F@" + Pad(t27_5046.s550, 25) + "     @08@│@0F@ R"
  1079.               Print "@0F@ O @08@│  @08@[@0E@ 4@08@] @0F@" + Pad(t27_5046.s75, 25) + "   @08@[@0E@24@08@] @0F@" + Pad(t27_5046.s575, 25) + "     @08@│@0F@ O"
  1080.               Print "@0F@ D @08@│  @08@[@0E@ 5@08@] @0F@" + Pad(t27_5046.s100, 25) + "   @08@[@0E@25@08@] @0F@" + Pad(t27_5046.s600, 25) + "     @08@│@0F@ D"
  1081.               Print "@0F@ U @08@│  @08@[@0E@ 6@08@] @0F@" + Pad(t27_5046.s125, 25) + "   @08@[@0E@26@08@] @0F@" + Pad(t27_5046.s625, 25) + "     @08@│@0F@ U"
  1082.               Print "@0F@ C @08@│  @08@[@0E@ 7@08@] @0F@" + Pad(t27_5046.s150, 25) + "   @08@[@0E@27@08@] @0F@" + Pad(t27_5046.s650, 25) + "     @08@│@0F@ C"
  1083.               Print "@0F@ T @08@│  @08@[@0E@ 8@08@] @0F@" + Pad(t27_5046.s175, 25) + "   @08@[@0E@28@08@] @0F@" + Pad(t27_5046.s675, 25) + "     @08@│@0F@ T"
  1084.               Print "   @08@│  @08@[@0E@ 9@08@] @0F@" + Pad(t27_5046.s200, 25) + "   @08@[@0E@29@08@] @0F@" + Pad(t27_5046.s700, 25) + "     @08@│"
  1085.               Print "@0F@ C @08@│  @08@[@0E@10@08@] @0F@" + Pad(t27_5046.s225, 25) + "   @08@[@0E@30@08@] @0F@" + Pad(t27_5046.s725, 25) + "     @08@│@0F@ C"
  1086.               Print "@0F@ A @08@│  @08@[@0E@11@08@] @0F@" + Pad(t27_5046.s250, 25) + "   @08@[@0E@31@08@] @0F@" + Pad(t27_5046.s750, 25) + "     @08@│@0F@ A"
  1087.               Print "@0F@ T @08@│  @08@[@0E@12@08@] @0F@" + Pad(t27_5046.s275, 25) + "   @08@[@0E@32@08@] @0F@" + Pad(t27_5046.s775, 25) + "     @08@│@0F@ T"
  1088.               Print "@0F@ E @08@│  @08@[@0E@13@08@] @0F@" + Pad(t27_5046.s300, 25) + "   @08@[@0E@33@08@] @0F@" + Pad(t27_5046.s800, 25) + "     @08@│@0F@ E"
  1089.               Print "@0F@ G @08@│  @08@[@0E@14@08@] @0F@" + Pad(t27_5046.s325, 25) + "   @08@[@0E@34@08@] @0F@" + Pad(t27_5046.s825, 25) + "     @08@│@0F@ G"
  1090.               Print "@0F@ O @08@│  @08@[@0E@15@08@] @0F@" + Pad(t27_5046.s350, 25) + "   @08@[@0E@35@08@] @0F@" + Pad(t27_5046.s850, 25) + "     @08@│@0F@ O"
  1091.               Print "@0F@ R @08@│  @08@[@0E@16@08@] @0F@" + Pad(t27_5046.s375, 25) + "   @08@[@0E@36@08@] @0F@" + Pad(t27_5046.s875, 25) + "     @08@│@0F@ R"
  1092.               Print "@0F@ I @08@│  @08@[@0E@17@08@] @0F@" + Pad(t27_5046.s400, 25) + "   @08@[@0E@37@08@] @0F@" + Pad(t27_5046.s900, 25) + "     @08@│@0F@ I"
  1093.               Print "@0F@ E @08@│  @08@[@0E@18@08@] @0F@" + Pad(t27_5046.s425, 25) + "   @08@[@0E@38@08@] @0F@" + Pad(t27_5046.s925, 25) + "     @08@│@0F@ E"
  1094.               Print "@0F@ S @08@│  @08@[@0E@19@08@] @0F@" + Pad(t27_5046.s450, 25) + "   @08@[@0E@39@08@] @0F@" + Pad(t27_5046.s950, 25) + "     @08@│@0F@ S"
  1095.               Print "   @08@│  @08@[@0E@20@08@] @0F@" + Pad(t27_5046.s475, 25) + "   @08@[@0E@40@08@] @0F@" + Pad(t27_5046.s975, 25) + "     @08@│"
  1096.               s4910 = InputMask("Please select a product category, or [@0F@Q@0E@]uit. ", "XX", "", 1213417543)
  1097.               If Val(s4910) >= 1 And Val(s4910) <= 40 Then
  1098.                 GoTo 19122
  1099.               End If
  1100. 19116       Loop
  1101. 19122       If Exists(s4932 + s4910 + "PROD.DAT") Then
  1102.               GoTo 19160
  1103.             End If
  1104. 19154     Loop
  1105. 19160     MorePrompt(0)
  1106.           Print "@0E@Download comma-delimited inventory file? Y/N:  ";
  1107.           s4978 = ""
  1108.           Do
  1109.             Do
  1110. 19183         s4978 = InKey(1213417543)
  1111.             Loop Until s4978 <> ""
  1112.             s65520_ = UCase(s4978)
  1113.             If s65520_ = "Y" Then
  1114.               GoTo 19287
  1115.             Else
  1116. 19252         If s65520_ = "N" Then
  1117.                 GoTo 1360
  1118.                 GoTo 19281
  1119.               End If
  1120.             End If
  1121. 19281     Loop
  1122. 19287     Open s4932 + s4910 + "PROD.DAT" For Random As 4 Len = 219 '! This value should probably be replaced with a "SizeOf" expression
  1123.           Open s4932 + s4910 + "PROD.TXT" For Output As 5
  1124.           i4972 = 1
  1125.           Do
  1126. 19358       Get 4, i4972, t28_4467 '! 219 bytes
  1127.             s6064 = s4914 + t28_4467.s207 + s4914 + t28_4467.s211 + s4914 + t28_4467.s215 + Chr(34)
  1128.             Print #5, Chr(34) + t28_4467.s0 + s4914 + t28_4467.s20 + s4914 + t28_4467.s30 + s4914 + t28_4467.s80 + s4914 + t28_4467.s130 + s4914 + t28_4467.s180 + s4914 + t28_4467.s188 + s4914 + t28_4467.s201 + s6064
  1129.             i4972 = i4972 + 1
  1130.           Loop While Not EOF(4)
  1131.           Close 4
  1132.           Close 5
  1133.           MorePrompt(0)
  1134.           SendFile(s4932 + s4910 + "PROD.TXT", 1213417543)
  1135.           Del s4932 + s4910 + "PROD.TXT"
  1136.         Loop
  1137. 19680   Locate 14, 14
  1138.         If InputYesNo("@1E@Upload and attach a file to an ad?  Y/N          @0E@", 1213417543) Then
  1139.           Do
  1140. 19706       Cls 
  1141.             Print "   @08@